home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / MRIPP.EXE / aliases.ini next >
INI File  |  1997-03-19  |  28KB  |  692 lines
  1. [Aliases]
  2. n0=atime {
  3. n1=  set %hr $token(1,58,$time)
  4. n2=  set %min $token(2,58,$time)
  5. n3=  if (%hr == 0) { set %hr 12 | set %sub am }
  6. n4=  elseif (%hr < 12) { set %sub am }
  7. n5=  elseif (%hr == 12) { set %sub pm }
  8. n6=  else { %hr = %hr - 12 | set %sub pm }
  9. n7=  return %hr $+ : $+ %min $+ %sub
  10. n8=}
  11. n9=awa1 /.disable #qnprot | /.disable #soundsend | /.disable #autoping | /mode $me +i-ws  | /.enable #prot | /.disable #flood_off | /nick %awaynick | /echo -a 2ññññ Fú÷÷╨ Pú÷tΦótφ÷± E±gΣgΦd Auto Ping [OFF] [ $me Mode:+i-ws] Auto Send Requests [OFF] ñññ | /set %ap [OFF] | /set %po [ON] | /set %ss [OFF] | /set %qnp [OFF]
  12. n10=awa2 /mode $me %mode | /.ignore off | /.disable #prot | /.enable #flood_off | /nick %mynick | /echo -a  2ññ ALL Fú÷÷╨ Pú÷tΦótφ÷± is OFF,Turn Auto-Ping and Auto send On if required $me Mode:Restored ññ | /set %po [OFF] /set %qnp [ON]
  13. n11=/gone {
  14. n12=  .timer888 off
  15. n13=  .awa1
  16. n14=  ame is away - $? - Messages are logged $atime
  17. n15=  away since $atime -  $+ $$!
  18. n16=  %msg = 0
  19. n17=  write -c $mircdir $+ away.log
  20. n18=  .enable #AwayMsgLog
  21. n19=}
  22. n20=back {
  23. n21=  if ($away != $true) { echo 6 Hey! you're not away | halt }
  24. n22=  elseif (%bbs.aaway == ON) { unset %bbs.aaway | ame has been set back | away | halt }
  25. n23=  else {
  26. n24=    .awa2
  27. n25=    ame φz ▀Σ╟K!
  28. n26=    away
  29. n27=    .disable #AwayMsgLog
  30. n28=    if (%msg == 0) { set %msg no }
  31. n29=    echo You have %msg message(s)
  32. n30=    if (%set.aaway == ON) { .timer888 0 %set.aaway.check /autoaway }
  33. n31=    unset %msg
  34. n32=  }
  35. n33=}
  36. n34=bb1 {
  37. n35=  echo 4 %rh  ***********************************************************************************
  38. n36=  echo 3 %rh                       Tδ±σ |{°Θ $me ! Ñ÷√ σrδ ╟°±±Ωótδd t÷ $server °± $date $day $atime
  39. n37=  echo 4 %rh  ***********************************************************************************
  40. n38=  echo 6 %rh                                -[-= ñM√Tσ±T«φ■P V0.8░ ºórφpt=- mφR╟« 4.72 ]- Created 18 January 1997
  41. n39=  echo 12 %rh                                                       -[ ▀  -=▀σ╨▀≤ =- ┼÷tΘΓr°Γ ]-
  42. n40=  echo 4  %rh 
  43. n41=  echo 4 %rh  ***********************************************************************************
  44. n42=}
  45. n43=bh {
  46. n44=  set %help  -[▀Γ╨▀° ]-HelpáWindow
  47. n45=  { play -ct $me $mircdir $+ bb.snt 200 }
  48. n46=}
  49. n47=channels {
  50. n48=  set %channels $chan(0)
  51. n49=  set %channelz 0
  52. n50=  set %i $chan(0)
  53. n51=  set %j 0
  54. n52=  :next
  55. n53=  inc %j 1
  56. n54=  inc %channelz
  57. n55=  if $chan(%j) != $null {
  58. n56=    set %chan $chan
  59. n57=    echo 2 %rh Channel ( $+ %channelz $+ / $+ %channels $+ )
  60. n58=    echo 4 %rh Name:  $+ $chan(%j) $+ 
  61. n59=    if $chan(%j).key != $null { echo 3 $rh Key: $chan(%j).key }
  62. n60=    if $chan(%j).key == $null { echo 3 %rh Key: <none> }
  63. n61=    if $chan(%j).mode != $null { echo 3 %rh Mode: $chan(%j).mode }
  64. n62=    if $chan(%j).mode == $null { echo 3 %rh Mode: <none> }
  65. n63=    if $chan(%j).topic != $null { echo 6 %rh Topic: $chan(%j).topic }
  66. n64=    if $chan(%j).topic == $null { echo 6 %rh Topic: <none> }
  67. n65=    goto end
  68. n66=    :end
  69. n67=    if %j >= %i {
  70. n68=      echo 6 %rh («φ■P) End Of Active Channel List.
  71. n69=      unset %i %channelz %channels
  72. n70=      halt
  73. n71=    }
  74. n72=    else goto next
  75. n73=  }
  76. n74=}
  77. n75=/hop /part # | /raw -q join #
  78. n76=dccsends {
  79. n77=  echo 6 %rh («φ■P) Dcc Send List.
  80. n78=  set %i $send(0)
  81. n79=  set %j 0
  82. n80=  :next
  83. n81=  inc %j 1
  84. n82=  if $send(%j) != $null {
  85. n83=    set %b $send(%j).cps * 60
  86. n84=    set %c $send(%j).cps / 1000
  87. n85=    echo 2 %rh ( $+ %j $+ / $+ %i $+ ) ( $+ $send(%j) $+ )
  88. n86=    echo 2 %rh Status: $send(%j).status
  89. n87=    echo 2 %rh Filename: $send(%j).file
  90. n88=    echo 2 %rh Sent: ( $+ $send(%j).sent $+ / $+ $send(%j).size $+ ) ( $+ $send(%j).pc $+ % done) Going  $+ $send(%j).cps $+  bytes/sec ( $+ %b bytes/min) -\- ( $+ %c kb/sec)
  91. n89=    if %j >= %i {
  92. n90=      echo 6 %rh («φ■P) End of Dcc Send List.
  93. n91=    }
  94. n92=    goto next
  95. n93=  }
  96. n94=}
  97. n95=dccchats {
  98. n96=  set %i $chat(0)
  99. n97=  set %j 0
  100. n98=  :next
  101. n99=  inc %j 1
  102. n100=  if $chat(%j) != $null {
  103. n101=    echo 2 %rh  DCC Chat With $chat(%j)
  104. n102=    echo 2 %rh  Connected to $chat(%j).ip ( $+ $gettok($address($chat(%j),2)),2,64 $+ )
  105. n103=    echo 2 %rh  Status: $chat(%j).status
  106. n104=    if %j >= %i {
  107. n105=      echo 6 %rh («φ■P) End of DCC Chat's List
  108. n106=      halt
  109. n107=    }
  110. n108=    else goto next
  111. n109=  }
  112. n110=}
  113. n111=/desync1 /raw -q mode # +bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  114. n112=/desync2 /raw -q mode # -bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
  115. n113=/bds {
  116. n114=  raw -q mode # +bbbbbb +@+. +@+. +@+. +@+. +@+. +@.+.
  117. n115=  raw -q mode # +bbbbbb ++@+-. +-@+. +-@+. +@-+.- +-@+.+ ++@+.+.
  118. n116=  raw -q mode # +bbbbbb ++@++. ++@++. ++@+.+ ++@++. ++@+. .++@..+
  119. n117=  raw -q mode # +bbbbbb -++@+++. +++@++. +++@+.+ ++@+++. +++@-+. .++@-..+
  120. n118=}
  121. n119=inal {
  122. n120=  set %i $ial(*!*,0)
  123. n121=  set %j 0
  124. n122=  :next
  125. n123=  inc %j 1
  126. n124=  if $ial(*!*,%j) != $null {
  127. n125=    echo 4 %rh  ( $+ %j $+ / $+ %i $+ ) $ial(*!*@*,%j)
  128. n126=    if %j >= %i { echo 2 %rh («φ■P) End Of IAL List. | halt }
  129. n127=    goto next
  130. n128=  }
  131. n129=}
  132. n130=/n  {
  133. n131=  rlevel 250 
  134. n132=  .nick *1
  135. n133=  set %mynick *1
  136. n134=  set %awaynick *1 $+ -away
  137. n135=  guser 250 $me 
  138. n136=}
  139. n137=/s /splay stop
  140. n138=/j /join *1
  141. n139=/w1 /whowas *1
  142. n140=/q /query *1
  143. n141=/w /whois *1
  144. n142=jc /join #Chat
  145. n143=jt /join #teen
  146. n144=jn /join #learners_lounge
  147. n145=jd /join #Da_Porch
  148. n146=jm /join #mIRC
  149. n147=jp /join #pIRCh
  150. n148=jnz /join #NZ
  151. n149=jh /join #Happyclappy
  152. n150=e {
  153. n151=  %bel = $replace(*1,a,Γ)
  154. n152=  %bel = $replace(%bel,A,├)
  155. n153=  %bel = $replace(%bel,b,▀)
  156. n154=  %bel = $replace(%bel,ae,µ)
  157. n155=  %bel = $replace(%bel,c,ó)
  158. n156=  %bel = $replace(%bel,C,⌐)
  159. n157=  %bel = $replace(%bel,d,╨)
  160. n158=  %bel = $replace(%bel,e,δ)
  161. n159=  %bel = $replace(%bel,E,╔)
  162. n160=  %bel = $replace(%bel,i,φ)
  163. n161=  %bel = $replace(%bel,I,╧)
  164. n162=  %bel = $replace(%bel,l,ú)
  165. n163=  %bel = $replace(%bel,n, ±)
  166. n164=  %bel = $replace(%bel,o,°)
  167. n165=  %bel = $replace(%bel,O, ╪)
  168. n166=  %bel = $replace(%bel,w,W)
  169. n167=  %bel = $replace(%bel,W,W)
  170. n168=  %bel = $replace(%bel,f,f)
  171. n169=  %bel = $replace(%bel,F,f)
  172. n170=  %bel = $replace(%bel,cks,X)
  173. n171=  %bel = $replace(%bel,r,«)
  174. n172=  %bel = $replace(%bel,s,º )
  175. n173=  %bel = $replace(%bel,t,t)
  176. n174=  %bel = $replace(%bel,T,t)
  177. n175=  %bel = $replace(%bel,u,√)
  178. n176=  %bel = $replace(%bel,u,█)
  179. n177=  %bel = $replace(%bel,y, )
  180. n178=  %bel = $replace(%bel,Y,▌)
  181. n179=  %bel = $replace(%bel,?,┐)
  182. n180=  %bel = $replace(%bel,z,z░)
  183. n181=  %bel = $replace(%bel,!,!)
  184. n182=  /say %bel
  185. n183=}
  186. n184=bw {
  187. n185=  unset %final
  188. n186=  unset %endreverse
  189. n187=  set %sections $token(0,32,*1)
  190. n188=  :revstart
  191. n189=  if (%sections == 0) goto revend
  192. n190=  set %reverseme $token(%sections,32,*1)
  193. n191=  set %length $len(%reverseme)
  194. n192=  set %backtext $mid(%length,1,%reverseme)
  195. n193=  dec %length 1
  196. n194=  :backstart
  197. n195=  if (%length == 0) goto backend
  198. n196=  set %tempback $mid(%length,1,%reverseme)
  199. n197=  set %backtext %backtext $+ %tempback
  200. n198=  dec %length 1
  201. n199=  goto backstart
  202. n200=  :backend
  203. n201=  set %reversed_text %backtext
  204. n202=  set %temp %reversed_text
  205. n203=  set %final %final %temp
  206. n204=  dec %sections 1
  207. n205=  goto revstart
  208. n206=  :revend
  209. n207=  set %endreverse %final
  210. n208=  say %final
  211. n209=}
  212. n210=b1 /say $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,w,W),e,Ω),o,÷),a,σ),b,▀),c,ó),d,╨),f,ú),g,G),h,H),i,ε),j,J),k,K),l,L),m,M),n,±),O,≡),p,■),q,Q),r,«),s,º),t,T),u,√),v,V),x,X),z,Z),!,í),?,┐),0,░),y,Ñ),1,╣),2,▓),3,│) 
  213. n211=e3 {
  214. n212=  set %bz *1
  215. n213=  %bz = $replace(%bz,a,6┼)
  216. n214=  %bz = $replace(%bz,b,4▀)
  217. n215=  %bz = $replace(%bz,c,4╟)
  218. n216=  %bz = $replace(%bz,d,11╨)
  219. n217=  %bz = $replace(%bz,e,13╔)
  220. n218=  %bz = $replace(%bz,f,2F)
  221. n219=  %bz = $replace(%bz,g,1G)
  222. n220=  %bz = $replace(%bz,h,2H)
  223. n221=  %bz = $replace(%bz,i,10╧)
  224. n222=  %bz = $replace(%bz,j,11J)
  225. n223=  %bz = $replace(%bz,k,4K)
  226. n224=  %bz = $replace(%bz,l,1ú)
  227. n225=  %bz = $replace(%bz,m,14M)
  228. n226=  %bz = $replace(%bz,n,7±)
  229. n227=  %bz = $replace(%bz,o,6÷)
  230. n228=  %bz = $replace(%bz,p,13■)
  231. n229=  %bz = $replace(%bz,q,12Q)
  232. n230=  %bz = $replace(%bz,r,13«)
  233. n231=  %bz = $replace(%bz,s,4º)
  234. n232=  %bz = $replace(%bz,t,8t)
  235. n233=  %bz = $replace(%bz,u,5ⁿ)
  236. n234=  %bz = $replace(%bz,v,2V)
  237. n235=  %bz = $replace(%bz,w,7\\')
  238. n236=  %bz = $replace(%bz,x,1╫)
  239. n237=  %bz = $replace(%bz,y,10Ñ)
  240. n238=  %bz = $replace(%bz,z,3Z)
  241. n239=  %bz = $replace(%bz,!,1í)
  242. n240=  %bz = $replace(%bz,?,4┐)
  243. n241=  %bz = $replace(%bz,{,13)
  244. n242=  %bz = $replace(%bz,},13)
  245. n243=  /say %bz
  246. n244=  unset %bz
  247. n245=}
  248. n246=/et {
  249. n247=  set %bz *1
  250. n248=  %bz = $replace(%bz,a,2σ)
  251. n249=  %bz = $replace(%bz,b,3▀)
  252. n250=  %bz = $replace(%bz,c,4ó)
  253. n251=  %bz = $replace(%bz,d,5╨)
  254. n252=  %bz = $replace(%bz,e,4Ω)
  255. n253=  %bz = $replace(%bz,f,7f)
  256. n254=  %bz = $replace(%bz,g,4g)
  257. n255=  %bz = $replace(%bz,h,13h)
  258. n256=  %bz = $replace(%bz,i,13═)
  259. n257=  %bz = $replace(%bz,j,11j)
  260. n258=  %bz = $replace(%bz,k,12k)
  261. n259=  %bz = $replace(%bz,l,12ú)
  262. n260=  %bz = $replace(%bz,m,6m)
  263. n261=  %bz = $replace(%bz,n,6±)
  264. n262=  %bz = $replace(%bz,o,14╪)
  265. n263=  %bz = $replace(%bz,p,12■)
  266. n264=  %bz = $replace(%bz,q,13q)
  267. n265=  %bz = $replace(%bz,r,11«)
  268. n266=  %bz = $replace(%bz,s,10º)
  269. n267=  %bz = $replace(%bz,t,9t)
  270. n268=  %bz = $replace(%bz,u,8ⁿ)
  271. n269=  %bz = $replace(%bz,v,7v)
  272. n270=  %bz = $replace(%bz,w,6\\')
  273. n271=  %bz = $replace(%bz,x,5╫)
  274. n272=  %bz = $replace(%bz,y,4Ñ)
  275. n273=  %bz = $replace(%bz,z,3z)
  276. n274=  %bz = $replace(%bz,!,1í)
  277. n275=  %bz = $replace(%bz,?,9┐)
  278. n276=  say %bz
  279. n277=  unset %bz
  280. n278=}
  281. n279=F1 /mode $me +i-ws | /.enable #qnprot | /.disable #autoping | /.enable #prot | /.disable #flood_off | /sound off | /.enable #notedcc | /echo -a 4ññññ Fú÷÷╨ Pú÷tΦótφ÷± E±gΣgΦd!! Sound Requests,DCC [OFF] Auto Ping [OFF] [ $me +i-ws ] ññññ | /set %ap [OFF] | /set %po [ON] | /set %qnp [ON]
  282. n280=F2 /mode $me %mode | /.disable #qnprot | /.disable #prot | /.enable #flood_off | /.disable #notedcc | /echo -a  4ññññ Fú÷÷╨ Pú÷tΦótφ÷± is OFF!!!! ññññ | /set %ap [OFF] | /set %po [OFF] | /set %qnp [ON]
  283. n281=F3 /gone
  284. n282=F4 /back
  285. n283=F5 /run notepad.exe $mircdir $+ away.log
  286. n284=F6 /.enable #qnprot | /echo 12 -a Query/Notice Flood Protection 1[4ON1] | /set %qnp [ON]
  287. n285=F7 /.disable #qnprot | /echo 12 -a Query/Notice Flood Protection 1[4OFF1] | /set %qnp [OFF]
  288. n286=F8 /list | .echo 12 -a Listing Channels....
  289. n287=F9 /wavs
  290. n288=F10 /play # $file="what file??" %ascii 1000
  291. n289=F11 /partall
  292. n290=F12 /onotice ½ñ╪■zñ╗ $$?="Enter Notice to ops on this channel"
  293. n291=/mt {
  294. n292=  set %Var.Chan $chan
  295. n293=  set %i 1
  296. n294=  set %Var.Index 1
  297. n295=  if (s isin $1) { set %Var.Safe $$2 }
  298. n296=  if (t isin $1) { set %Var.Take y }
  299. n297=  if (undernet isin $server) { set %Var.Num 6 }
  300. n298=  else { set %Var.Num 4 }
  301. n299=  :start
  302. n300=  set %Var.User $opnick(%i,%Var.Chan)
  303. n301=  if (%Var.User == $null) {
  304. n302=    raw -q mode %Var.Chan -oooooo %Var.Nick
  305. n303=    if (%Var.Take == y) { /mode # +mints | /topic %Var.Chan («φ■P) -[-= ñM√Tσ±T TσkΩ╓vδr =-]- («φ■P) }
  306. n304=    if (s isin $1) { raw -q mode # +o %Var.Safe }
  307. n305=    echo 6 -a («φ■P) TσkΩ╓vδr On # Complete!
  308. n306=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt
  309. n307=  }
  310. n308=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  311. n309=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }
  312. n310=  inc %i 1
  313. n311=  goto start
  314. n312=}
  315. n313=mkno {
  316. n314=  set %kicked $nopnick(0,#)
  317. n315=  set %kicker 0
  318. n316=  set %i $nopnick(0,#)
  319. n317=  set %j 0
  320. n318=  :next
  321. n319=  inc -q %j 1
  322. n320=  inc -q %kicker
  323. n321=  if ($nopnick(%j,#) != $null) {
  324. n322=    if ($nopnick(%j,#) != $me) {   kick # $nopnick(%j,#) («φ■P) MΓºº KεóK Non ╓■'º ( $+ %kicker $+ / $+ %kicked $+ ) }
  325. n323=  }
  326. n324=  if (%j >= %i) {
  327. n325=    echo 4 -a («φ■P) MΓºº KεóK Not ╓■'º Complete
  328. n326=    unset %j %i %kicked %kicker
  329. n327=    halt
  330. n328=  }
  331. n329=  goto next
  332. n330=}
  333. n331=mko {
  334. n332=  set %kicked $opnick(0,#)
  335. n333=  dec %kicked 1
  336. n334=  set %kicker 0
  337. n335=  set %i $opnick(0,#)
  338. n336=  set %j 0
  339. n337=  :next
  340. n338=  inc -q %j 1
  341. n339=  inc -q %kicker
  342. n340=  if ($opnick(%j,#) != $null) {
  343. n341=    if ($opnick(%j,#) != $me) {   kick # $opnick(%j,#) («φ■P) MΓºº KεóK ╓■'º ( $+ %kicker $+ / $+ %kicked $+ ) }
  344. n342=  }
  345. n343=  if %j >= %i {
  346. n344=    echo 4 -a MΓºº KεóK ╓■'º Complete
  347. n345=    unset %j %i %kicked %kicker
  348. n346=    halt
  349. n347=  }
  350. n348=  goto next
  351. n349=}
  352. n350=mkba {
  353. n351=  set %kicked $nick(0,#)
  354. n352=  set %kicker 0
  355. n353=  set %i $nick(0,#)
  356. n354=  set %j 0
  357. n355=  :next
  358. n356=  inc -q %j 1
  359. n357=  inc -q %kicker
  360. n358=  if ($nick(%j,#) != $null) {
  361. n359=    if ($nick(%j,#) != $me) { raw -q mode # -o+b $nick(%j,#) $address($nick(%j,#),3) | raw -q kick # $nick(%j,#) :(«φ■P) MΓºº KεóK ▀Γ±..w╓╓p w╓╓p!! ( $+ %kicker $+ / $+ %kicked $+ ) }
  362. n360=  }
  363. n361=  if (%j >= %i) {
  364. n362=    echo 4 -a («φ■P)MΓºº KεóK ▀Γ±  Complete YEAH!!!
  365. n363=    unset %j %i %kicked %kicker
  366. n364=    halt
  367. n365=  }
  368. n366=  goto next
  369. n367=}
  370. n368=mds {
  371. n369=  set %i 1
  372. n370=  set %deop
  373. n371=  set %num 0
  374. n372=  :next
  375. n373=  set %nick $snick(%i,#)
  376. n374=  if %nick == $null goto done
  377. n375=  if %nick != $me {  %deop = %deop %nick
  378. n376=  inc %num }
  379. n377=  if %num == 4 { raw -q mode # -oooo %deop
  380. n378=    set %num 0
  381. n379=  set %deop }
  382. n380=  inc %i
  383. n381=  goto next
  384. n382=  :done
  385. n383=  if %num != 0 { raw -q mode # -oooo %deop }
  386. n384=  unset %i %deop %nick %num
  387. n385=}
  388. n386=mo {
  389. n387=  set %i 1
  390. n388=  set %op
  391. n389=  set %num 0
  392. n390=  :next
  393. n391=  set %nick $snick(%i,#)
  394. n392=  if %nick == $null goto done
  395. n393=  if %nick != $me {  %op = %op %nick
  396. n394=  inc %num }
  397. n395=  if %num == 4 { raw -q mode # +oooo %op
  398. n396=    set %num 0
  399. n397=  set %op }
  400. n398=  inc %i
  401. n399=  goto next
  402. n400=  :done
  403. n401=  if %num != 0 { raw -q mode # +oooo %op }
  404. n402=  unset %i %op %nick %num
  405. n403=}
  406. n404=mos {
  407. n405=  set %i 1
  408. n406=  set %deop
  409. n407=  set %num 0
  410. n408=  :next
  411. n409=  set %nick $snick(%i,#)
  412. n410=  if %nick == $null goto done
  413. n411=  if %nick != $me {  %deop = %deop %nick
  414. n412=  inc %num }
  415. n413=  if %num == 4 { raw -q mode # +oooo %deop
  416. n414=    set %num 0
  417. n415=  set %deop }
  418. n416=  inc %i
  419. n417=  goto next
  420. n418=  :done
  421. n419=  if %num != 0 { raw -q mode # +oooo %deop }
  422. n420=  unset %i %deop %nick %num
  423. n421=}
  424. n422=md {
  425. n423=  set %i 1
  426. n424=  set %deop
  427. n425=  set %num 0
  428. n426=  :next
  429. n427=  set %nick $opnick(%i,#)
  430. n428=  if %nick == $null goto done
  431. n429=  if %nick != $me {  %deop = %deop %nick
  432. n430=  inc %num }
  433. n431=  if %num == 4 { raw -q mode # -oooo %deop
  434. n432=    set %num 0
  435. n433=  set %deop }
  436. n434=  inc %i
  437. n435=  goto next
  438. n436=  :done
  439. n437=  if %num != 0 { raw -q mode # -oooo %deop }
  440. n438=  unset %i %deop %nick %num
  441. n439=}
  442. n440=sp /.timer100 0 30 /raw -q pong $server $server
  443. n441=autoaway {
  444. n442=  if (%set.aaway == ON) && ($away != $true) {
  445. n443=    if ($idle > %set.aaway.idle) {
  446. n444=      .nick %awaynick
  447. n445=      away Automatically set away at $atime -- Messages are logged
  448. n446=      ame has automatically been set away -- Messages are logged
  449. n447=      set %start $ctime
  450. n448=      set %bbs.aaway ON
  451. n449=    }
  452. n450=  }
  453. n451=  elseif (%set.aback == ON) && ($away == $true) && (%bbs.aaway == ON) {
  454. n452=    if ($idle < %set.aaway.idle) {
  455. n453=      away
  456. n454=      set %awaytime $atime - %start
  457. n455=      ame has automatically been set back -- away for $duration(%awaytime)
  458. n456=      .nick %mynick
  459. n457=      unset %start %awaytime %bbs.aaway
  460. n458=    }
  461. n459=  }
  462. n460=}
  463. n461=perc {
  464. n462=  if $2 == $null { return Syntax error }
  465. n463=  if ($3 == bar) {
  466. n464=    if ($4 != $null) {
  467. n465=      set %scale $4
  468. n466=    }
  469. n467=    else { set %scale 20 }
  470. n468=  }
  471. n469=  %x = $1 * 100 | %x1 = $1 * %scale
  472. n470=  if ($2 != 1) { %rest = $2 / 2 } | else { %rest = 1 }
  473. n471=  %y = %x / $2 | %y1 = %x1 / $2
  474. n472=  %z = %x % $2 | %z1 = %x1 % $2
  475. n473=  if (%z > %rest) { inc %y }
  476. n474=  if (%z1 > %rest) { inc %y1 }
  477. n475=  %y2 = %scale - %y1
  478. n476=  if (%y1 > 0) && (%y2 > 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $str(%y2,=) $+ $chr(93) }
  479. n477=  elseif (%y1 > 0) && (%y2 == 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $chr(93) }
  480. n478=  else { set %bar $chr(91) $+ $str(%y2,=) $+ $chr(93) }
  481. n479=  if ($3 == bar) { set %return %bar %y $+ % } | else { set %return %y $+ % }
  482. n480=  unset %bar %x %x1 %rest %y %y1 %z %z1 %y2
  483. n481=  return %return
  484. n482=}
  485. n483=-#################################TALKERS####################
  486. n484=r2 { %num = 1 | unset %belg  | %num2 = 1 | %belg = 
  487. n485=  :start
  488. n486=  %num2 = $rand(1,15)
  489. n487=  if $mid(%num,1, *1) != $null {
  490. n488=    %belg = %belg $+   $+ %num2  $+  $mid(%num, 1,*1) $+  
  491. n489=    inc %num
  492. n490=  goto start  }
  493. n491=  say %belg
  494. n492=}
  495. n493=r3 { %num = 1 | unset %belg  | %num2 = 1 | %belg = 
  496. n494=  :start
  497. n495=  %num2 = $rand(1,15)
  498. n496=  if $mid(%num,1, *1) != $null {
  499. n497=    %belg = %belg $+    $+ %num2  $+  $mid(%num, 1,*1) $+ 
  500. n498=    inc %num
  501. n499=  goto start  }
  502. n500=  me %belg
  503. n501=}
  504. n502=r4 { %num = 1 | unset %belg  | %num2 = 1 | %belg =
  505. n503=  :start
  506. n504=  %num2 = $rand(1,7)
  507. n505=  if $mid(%num,1, *1) != $null {
  508. n506=    %belg = %belg $+   $+ %num2  $+  $mid(%num, 1,*1) $+ 
  509. n507=    inc %num
  510. n508=  goto start  }
  511. n509=  say %belg
  512. n510=}
  513. n511=r5 { %num = 1 | unset %belg  | %num2 = 1 | %belg =
  514. n512=  :start
  515. n513=  %num2 = $rand(1,7)
  516. n514=  if $mid(%num,1, *1) != $null {
  517. n515=    %belg = %belg $+   $+ %num2  $+  $mid(%num, 1,*1) $+  
  518. n516=    inc %num
  519. n517=  goto start  }
  520. n518=  me %belg
  521. n519=}
  522. n520=/brk { %num = 1 | unset %belg  | %belg =  | %color = p
  523. n521=  :start
  524. n522=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  525. n523=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  526. n524=  :add
  527. n525=  if $mid(%num,1, *1) != $null {
  528. n526=    %belg = %belg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
  529. n527=    inc %num
  530. n528=  goto start  }
  531. n529=  say %belg
  532. n530=}
  533. n531=/bkw { %num = 1 | unset %bel  | %bel =  | %color = p
  534. n532=  :start
  535. n533=  if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
  536. n534=  if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
  537. n535=  :add
  538. n536=  if $mid(%num,1, *1) != $null {
  539. n537=    %bel = %bel $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
  540. n538=    inc %num
  541. n539=  goto start  }
  542. n540=  say %bel
  543. n541=}
  544. n542=/wr { %num = 1 | unset %bel  | %bel =  | %color = p
  545. n543=  :start
  546. n544=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  547. n545=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  548. n546=  :add
  549. n547=  if $mid(%num,1, *1) != $null {
  550. n548=    %bel = %bel $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
  551. n549=    inc %num
  552. n550=  goto start  }
  553. n551=  say %bel
  554. n552=}
  555. n553=/rg { %num = 1 | unset %bel  | %bel =  | %color = p
  556. n554=  :start
  557. n555=  if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
  558. n556=  if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add }
  559. n557=  :add
  560. n558=  if $mid(%num,1, *1) != $null {
  561. n559=    %bel = %bel $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
  562. n560=    inc %num
  563. n561=  goto start  }
  564. n562=  say %bel
  565. n563=}
  566. n564=scan {
  567. n565=  unset %friends
  568. n566=  set %c $nick(0,#)
  569. n567=  set %d 0
  570. n568=  :next
  571. n569=  inc %d
  572. n570=  if $nick(%d,#) != $null {
  573. n571=    if ($level($maddress($address($opnick(%d,#),5))) == 100) { mode # +o $nick(%d,#)  }
  574. n572=  }
  575. n573=  if (%d >= %c) { halt }
  576. n574=  goto next
  577. n575=}
  578. n576=slist {
  579. n577=  echo 2 %rh («φ■P) Server List.
  580. n578=  set %i $server(0)
  581. n579=  set %j 0
  582. n580=  :next
  583. n581=  inc %j 1
  584. n582=  if $server(%j) != $null {
  585. n583=    echo 2 %rh [Server: $server(%j) $+ : $+ $server(%j).port $+ ] ( $+ $server(%j).desc $+ ) ( $+ %j $+ / $+ %i $+ )
  586. n584=    if %j >= %i { echo 2 %rh («φ■P) End of Server List. | halt }
  587. n585=    goto next
  588. n586=  }
  589. n587=}
  590. n588=stats1 {
  591. n589=  echo 4 %rh *******************************************************************************************************
  592. n590=  echo 6 %rh   $chr(91) ñM√Tσ±TRφ■P V0.8░ mIR╟ 4.72 =- $chr(93)
  593. n591=  echo 4 %rh Time: $+ $atime $+
  594. n592=  echo 13 %rh ╤εóK:  $+ $me $chr(91) $+ $usermode $+ $chr(93)
  595. n593=  echo 2 %rh Local Host $chr(91) $+ $host $+ $chr(93)
  596. n594=  echo 10 %rh ºΩrvΩr: $chr(91) $+ $server $+ $chr(93) $chr(91) $+ $port $+ $chr(93)
  597. n595=  echo 12 %rh ╪±úε±δ: %hours Hours  %minutes Minutes
  598. n596=  echo 1 %rh IP $chr(91) $+ $ip $+ $chr(93) LongIP $chr(91)  $+ $longip($ip) $+ $chr(93)
  599. n597=  echo 4 %rh *******************************************************************************************************
  600. n598=}
  601. n599=/stats2  /echo 6 %rh ñM√Tσ±TRφ■P V0.8░ mIR╟ 4.72 =- SCRIPT STATUS: | /echo 13 %rh FLOOD PROTECTION :4 %po | /echo 13 %rh NICK FLOOD PROTECTION:4 %nf | /echo 13 %rh QUERY/NOTICE FLOOD PROTECTION:4 %qnp | /echo 13 %rh USERLIST:4 %ul | /echo 13 %rh CHANNEL TOPIC PROT:2 %var.chantopic 4 %tp 2 %var.topic | /echo 13 %rh CHANNEL MODE PROT:2 %var.chanmode 2 %var.mode 4 %mpr  | /echo 13 %rh REINFORCING BANS:4 %rb | /echo 12 %rh SEEN:2 %lastseen | /echo 12 %rh AUTOPING:2 %ap | /echo 12 %rh DCC On REQUEST:2 %ss 
  602. n600=/timesup {
  603. n601=  .disable #bbvote
  604. n602=  say 13Vote-o-rama Closed.
  605. n603=  say 12Topic: %votetopic $+
  606. n604=  say   $+ %votey Voted YES!
  607. n605=  say   $+ %voten Voted NO Way!
  608. n606=  say   $+ %voteun Were Undecided
  609. n607=}
  610. n608=urllist {
  611. n609=  set %i $url(0)
  612. n610=  set %j 0
  613. n611=  :next
  614. n612=  inc %j 1
  615. n613=  if $url(%j) != $null {
  616. n614=    echo 2 %rh  ( $+ %j $+ / $+ %i $+ ) 13[ : $url(%j) $+ ] 6[Desc: $url(%j).desc $+ ]
  617. n615=    if %j >= %i { echo 2 %rh («φ■P) End Of URL List. | halt }
  618. n616=    goto next
  619. n617=  }
  620. n618=}
  621. n619=/wavs /sound # $hfile="choose a file" $wavedir $?="■LσÑ M맧Γgδ ?"
  622. n620=mw {
  623. n621=  SET %tmp *1
  624. n622=  SET %ct $len(%tmp)
  625. n623=  :megaloop
  626. n624=  SET %ch $mid(%ct,1,%tmp)
  627. n625=  %ch = CHAR $+ $asc(%ch)
  628. n626=  SET %line1 $readini extras.ini %ch n1 $+ %line1
  629. n627=  SET %line2 $readini extras.ini %ch n2 $+ %line2
  630. n628=  SET %line3 $readini extras.ini %ch n3 $+ %line3
  631. n629=  SET %line4 $readini extras.ini %ch n4 $+ %line4
  632. n630=  SET %line5 $readini extras.ini %ch n5 $+ %line5
  633. n631=  DEC %ct
  634. n632=  if (%ct != 0) GOTO megaloop
  635. n633=  if (%line1) { MSG $active $chr(160) }
  636. n634=  if (%line1) { MSG $active %line1 }
  637. n635=  if (%line2) { MSG $active %line2 }
  638. n636=  if (%line3) { MSG $active %line3 }
  639. n637=  if (%line4) { MSG $active %line4 }
  640. n638=  if (%line5) { MSG $active %line5 }
  641. n639=  UNSET %line1
  642. n640=  UNSET %line2
  643. n641=  UNSET %line3
  644. n642=  UNSET %line4
  645. n643=  UNSET %line5
  646. n644=  UNSET %tmp
  647. n645=  UNSET %ct
  648. n646=  UNSET %ch
  649. n647=  HALT
  650. n648=}
  651. n649=clock {
  652. n650=  say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=
  653. n651=  say 4,2-2,4=4,2-2,4=13,2 $atime 2,4=4,2
  654. n652=  say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=
  655. n653=}
  656. n654=colors {
  657. n655=  msg $1 The colors are: 0,1White[0] 1Black[1] 2Dk.Blue[2] 3Green[3] 4Red[4] 5Brown[5] 6Purple[6] 7Orange[7] 8Yellow[8] 9Lt.Green[9] 10Teal[10] 11Cyan[11] 12Royal[12] 13Lt.Purple[13] 14Dk.Grey[14] 15Lt.Grey[15]
  658. n656=}
  659. n657=/clonejoin {
  660. n658=  if $nick != $me {
  661. n659=    set %count 0 | /unset %clonejoin
  662. n660=    :start
  663. n661=    inc %count 1
  664. n662=    if $nick(%count,$chan) == $null goto end
  665. n663=    if $nick == $nick(%count,$chan) goto start
  666. n664=    if $address($nick(%count,$chan),0) == $address($nick,0) set %clonejoin %clonejoin $nick(%count,$chan) &
  667. n665=    goto start
  668. n666=    :end
  669. n667=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /echo 4 %rh ü $+ %clonejoin $+ ü are CLONES! | /echo 4 %rh ü $+ $address($nick,0) $+ ü ▀▀ }
  670. n668=    unset %count | /unset %clonejoin
  671. n669=  }
  672. n670=}
  673. n671=;HI! heres a couple more aliases i threw in at the last minute....thanx to REDW00D!
  674. n672=/b /say 2,2  *1 $+ ! | /say 0,2  *1  1,1!  | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
  675. n673=/b2 /say 3,3  *1 $+ ! | /say 8,3  *1  1,1!  | /say 3,3  *1  1,1! | /say 0,0 1,1 *1 $+ !
  676. n674=/b3 /say 4,4  *1 $+ ! | /say 0,4  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
  677. n675=/b4 /say 8,8  *1 $+ ! | /say 3,8  *1  1,1!  | /say 8,8  *1  1,1! | /say 0,0 1,1 *1 $+ !
  678. n676=/b5 /say 9,9  *1 $+ ! | /say 12,9  *1  1,1!  | /say 9,9  *1  1,1! | /say 0,0 1,1 *1 $+ !
  679. n677=/b6 /say 11,11  *1 $+ ! | /say 2,11  *1  1,1!  | /say 11,11  *1  1,1! | /say 0,0 1,1 *1 $+ !
  680. n678=/b7 /say 12,12  *1 $+ ! | /say 0,12  *1  1,1!  | /say 12,12  *1  1,1! | /say 0,0 1,1 *1 $+ !
  681. n679=/b8 /say 13,13  *1 $+ ! | /say 1,13  *1  1,1!  | /say 13,13  *1  1,1! | /say 0,0 1,1 *1 $+ !
  682. n680=/3R /say 4,4 *1 8,8! | /say 8,12 *1 8,8! | /say 4,4 *1 8,8! | /say 0,08,8 *1 !
  683. n681=/3B /say 13,13 *1 6,6! | /say 9,4 *1 6,6! | /say 13,13 *1 6,6! | /say 0,06,6 *1 !
  684. n682=/psplit {
  685. n683=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  686. n684=    set %split2 $token(1,46,$parm2)
  687. n685=    set %split $token(1,46,$parm1)
  688. n686=    echo 4 Possible Netsplit At: $parms   
  689. n687=  }
  690. n688=}
  691. n689=/tell /say 9,5/-----------------------------------------------------------------\ | /say 13,5ñM√Tσ±T«φ■P V0.8░ñ ▀  -=▀Γ╨▀° =- ┼°tδΓr°Γñ | /say 9,5\-----------------------------------------------------------------/ | /say 11,5Get it at--╗http://www.xcalibre.com/mirc/scripts
  692.